home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / egavga.swg / 0063_Linked in BGI files.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-05-25  |  1.3 KB  |  52 lines
  1. {
  2. Here's the recipe to get rid of missing BGI drivers!
  3.  
  4.  
  5. To get EGAVGA.OBJ use the BINOBJ utility supplied with Turbo Pascal
  6.  
  7.  
  8. BINOBJ EGAVGA.BGI EGAVGA EGAVGA
  9.  
  10.  
  11. To use this unit just add it to your uses statement once and forget
  12. all about path's in Initgraph (use ''). The unit can be extended to
  13. support additional drivers, like CGA.BGI. Read the GRAPH.DOC file
  14. on the TP disks.
  15.  
  16. -----------------------<cut here
  17.  
  18. {---------------------------------------------------------}
  19. {  Project : Turbo EGAVGA Driver                          }
  20. {  Auteur  : G.W. van der Vegt                            }
  21. {---------------------------------------------------------}
  22. {  Datum .tijd  Revisie                                   }
  23. {  920301.1300  Creatie.                                  }
  24. {---------------------------------------------------------}
  25.  
  26. UNIT Bgi_01;
  27.  
  28. INTERFACE
  29.  
  30. USES
  31.   Graph;
  32.  
  33. IMPLEMENTATION
  34.  
  35. {------------------------------------------------}
  36. {----EGAVGA.BGI Driver                           }
  37. {------------------------------------------------}
  38.  
  39. PROCEDURE Egavga; External;
  40.  
  41. {$L Egavga.obj}
  42.  
  43. BEGIN
  44.   IF RegisterBGIDriver(@Egavga)<0
  45.      THEN
  46.        BEGIN
  47.          Writeln('Error registering driver: ',
  48.                   GraphErrorMsg(GraphResult));
  49.          Halt(1);
  50.        END;
  51. END.
  52.